Top 10k strings from HL ZX Forth (1983)(Mike Hampson)(16k).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 a$=a$+"     "
   2 *************
   2            ABCDEFGHIJKLMNOPQRSTU           
   2            
   1 z?     #z'     *zINKEY 9zKEY   MzRND   tz
   1 xBRIGHT(xPAPER ;xINK   QxBORDERbxHIRES qxPLOT  
   1 x@      yC@    ,y!     8yC!    DyP@    NyP!    [yFILL  fyERASE xyDELETE
   1 while,r-while-1
   1 wLOOP  "w+LOOP 7wLEAVE WwEXIT  ^wEXITLP`wWAIT  ewMAX   vwMIN   
   1 v>     -vDROP  AvDUP   IvOVER  SvPICK  _vSWAP  qvROT   |vROLL  
   1 tFIELD FuCR    Qu+     \u-     gu*     tu/     
   1 tEMIT  pt.     
   1 routines  
   1 else,r-else-1
   1 dict'ry   h
   1 characters
   1 a$=a$+n$(1
   1 a$="mc byte:":
   1 a$="WHILE"
   1 a$="UNTIL"
   1 a$="REPEAT"
   1 a$="Name Word:":
   1 a$="Name UDG:":
   1 a$="File Name:":
   1 a$="Continue definition:":
   1 a$="BEGIN"
   1 a$="***>":
   1 a$="       ........                 Line "+
   1 SP16      
   1 HL ZX FORTH
   1 ,begin-r+254
   1 ,begin-r+251
   1 *(a$="s")-1000
   1 *(a$=":")+2000
   1 ''''"Stack:";(28154
   1 '"You are now in Command Mode."
   1 '"Typing error.Continue.":
   1 '"Tape OK.":
   1 "routines"
   1 "characters"
   1 "Please play back to verify.":
   1 "Compiling - please wait."
   1  January 1983 M Hampson"''"Please wait"
   1  Copying of this program is      illegal exept for storage of    the purchacer's own FORTH       words excusively for his own    use."